/*
 * FreeModbus Libary: BARE Port
 * Copyright (C) 2006 Christian Walter <wolti@sil.at>
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *
 * File: $Id$
 */

#include "port.h"

/* ----------------------- Modbus includes ----------------------------------*/
#include "mb.h"
#include "mbport.h"
#include "Cpu.h"

/* ----------------------- static functions ---------------------------------*/
static void prvvUARTTxReadyISR( void );
static void prvvUARTRxISR( void );
static void Lpuart2_RxTx_IRQn(void *driverState, uart_event_t event, void *userData);
/* ----------------------- Start implementation -----------------------------*/
uint8_t uart2RXBuffer[10] = {0};
uint8_t uart2TXBuffer[10] = {0};
void vMBPortSerialEnable( BOOL xRxEnable, BOOL xTxEnable )
{
    /* If xRXEnable enable serial receive interrupts. If xTxENable enable
     * transmitter empty interrupts.
     */
	if(xRxEnable)
	{
		LPUART2->CTRL |= LPUART_CTRL_RE_MASK;
		LPUART2->CTRL |= LPUART_CTRL_RIE_MASK;

	}
	else
	{
		LPUART2->CTRL &= ~LPUART_CTRL_RE_MASK;
		LPUART2->CTRL &= ~LPUART_CTRL_RIE_MASK;
	}

	if(xTxEnable)
	{
		LPUART2->CTRL |= LPUART_CTRL_TE_MASK;
		LPUART2->CTRL |= LPUART_CTRL_TIE_MASK;
	}
	else
	{
		LPUART2->CTRL &= ~LPUART_CTRL_TE_MASK;
		LPUART2->CTRL &= ~LPUART_CTRL_TIE_MASK;
		LPUART2->CTRL = 0x00240000;
	}
}

BOOL xMBPortSerialInit( UCHAR ucPORT, ULONG ulBaudRate, UCHAR ucDataBits, eMBParity eParity, UCHAR ucStopBits)
{
	LPUART_DRV_Init(INST_LPUART2, &lpuart2_State, &lpuart2_InitConfig0);
	LPUART_DRV_InstallTxCallback(INST_LPUART2,Lpuart2_RxTx_IRQn, NULL);
	LPUART_DRV_InstallRxCallback(INST_LPUART2,Lpuart2_RxTx_IRQn, NULL);
	LPUART_DRV_ReceiveData(INST_LPUART2, uart2RXBuffer, 1U);
	LPUART_DRV_SetRxBuffer(INST_LPUART2, uart2RXBuffer, 1U);
	LPUART_DRV_SendData(INST_LPUART2,uart2TXBuffer,1U);
	return TRUE;
}

BOOL xMBPortSerialPutByte( CHAR ucByte )
{
    /* Put a byte in the UARTs transmit buffer. This function is called
     * by the protocol stack if pxMBFrameCBTransmitterEmpty( ) has been
     * called. */
	int count = 0;
	while((LPUART2->STAT & LPUART_STAT_TDRE_MASK) != LPUART_STAT_TDRE_MASK && count++<0xffff)
	if(count >= 0xffff)
		return 0;
	uart2TXBuffer[0] = ucByte;
    return TRUE;
}

BOOL xMBPortSerialGetByte( CHAR * pucByte )
{
    /* Return the byte in the UARTs receive buffer. This function is called
     * by the protocol stack after pxMBFrameCBByteReceived( ) has been called.
     */
	*pucByte =  uart2RXBuffer[0];
    return TRUE;
}

/* Create an interrupt handler for the transmit buffer empty interrupt
 * (or an equivalent) for your target processor. This function should then
 * call pxMBFrameCBTransmitterEmpty( ) which tells the protocol stack that
 * a new character can be sent. The protocol stack will then call 
 * xMBPortSerialPutByte( ) to send the character.
 */
static void prvvUARTTxReadyISR( void )
{
    pxMBFrameCBTransmitterEmpty(  );
}

/* Create an interrupt handler for the receive interrupt for your target
 * processor. This function should then call pxMBFrameCBByteReceived( ). The
 * protocol stack will then call xMBPortSerialGetByte( ) to retrieve the
 * character.
 */
static void prvvUARTRxISR( void )
{
    pxMBFrameCBByteReceived(  );
}

static void Lpuart2_RxTx_IRQn(void *driverState, uart_event_t event, void *userData)
{
	switch(event)
	{
		case UART_EVENT_RX_FULL:
		{
			prvvUARTRxISR();
			LPUART_DRV_SetRxBuffer(INST_LPUART2, uart2RXBuffer, 1U);
	    	break;
		}
		case UART_EVENT_TX_EMPTY:
			prvvUARTTxReadyISR();
			LPUART_DRV_SetTxBuffer(INST_LPUART2, uart2TXBuffer, 1U);
			break;
		case UART_EVENT_END_TRANSFER:

			break;

		case UART_EVENT_ERROR:

			break;
    }
}

